@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y%}&<D=7=OJ&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` '}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . }1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* )} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + }1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' ,} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '.}L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh``}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`ф}фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂Hȱ}h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,0 }` ,0L,L,`޵` `Ȕ`ʔ惥u`!}+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr*"}` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr*#}TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥ$} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵ}`piH n0)բY? 08`0 &}  0$L GGȽG L `8L`L'}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`(}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE)} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR*}1LJ舩9GIH`LJJ`HGHh l`+} S gL   8 rii `дCDCG W  ,}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}-}f( |||DDOS DOSDOS SYS }.}}. } }E .@@1/}CDOS SYSBTRACK2 BAD5%MARK2 EXEZSEC90 BAD0} 0`BDELV !B 1}`LVUQ   ]   TU J ]L!T  #      TU 2} L ? .  t`GBJ V~DEHI B V0dV3}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh4}DEL8HI   0 HI,0 0  9 .G VLO5},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI6} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI7} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO 8}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -9}LLu DEHILV 9 .l 9 .l  `` s$B VBH:}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL;}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e<}1i1232435ޥ<<8}r)!"`3'3})!"`3'3LIST "D:INTRO.LSTCONVERTED U}BY JOHN BLUME!!DYNATECH MICROSOFTWARE INC.;@%, AU  AUp6-F:A,&@6-A V}V$+%@+%@++6-?:C:,<%@<%@<A,II6-?:C:,<BBy<<AY< W}@F<B2w<@<A<,?%A?6-?:C:,<%A<%A<A(,?%A@ X}?6-?:C:,<%A@<%AA<A(,B2W@A#@6-A((6-?:C:,?@A@BCDEFGHIJa}KLMNOPSAVE "D:CONVERT.BAS.;@@,6-F:Ai,.6-F:Ap,$b};@,$6. D :MARKER.EXEO67@<@,.=:,4-@F:AS,K67,.>:F:AS%,,O 67B:,&@c},..PRG B! A()9 Bq B)-@@"9  Printing...*2-@!d}6.2-@8+% 1!A'%6-&A(,67%@,.>:,-   3. / B Be}0$x B(A'} B A :@%68@,-@:68@,-@-@f}@@@@ 68,-68%@,-8,%%%68%@g},-8,%@%&&68,-P:'@@,!!68,-&@&@@$8, -@@$$67h}8,<8%@,&@,. @h6-6-|* 6. 67@@,.*67@,.$ 6. i}67,.$67@,."A@I #BU A"@I@@ D:EXP.GLBj}-@" A3@ 6-A:,6-8%@,&8,""8,&@B$B#$$67k}8,<8%@,&@,. A5''678,<8%@,&@,.0X  A6-@5@l}5@@ D:EXP.IDX@67,. 6-% A`56- A56-A:7$@m}%@,, B* 6..67@@,.*67@,.$@ B` Be5 +n}6-@+AR@5 B .-@@.(Your selections are:>-@@ > $File po}reparation.(first time only).F>-@@>($Enter new records..................E>-@@>($Lookup p}records.....................L!>-@@>($Search records.....................S&>-@@>($Update rq}ecords.....................U+>-@@>($Delete records.....................D:>-@@>($Enter funr}ction by pressing the key ?<-@@!<(" To return to this menu press D16-@76-@'6-@'s}1 B F4)4>:@',AH4FAI"AK4EA M4LBOt}4SB Q4UB0S4DB@X4XA] A% B B% Au} + A % D:LINK.BAS BFILE PREPERATION ROUTINEm +'0@@v}A0@@[0@@@mAR@9-@@9 This option will erase all youw}r5-@@5 previously entered records.=-@@= #To begin file preparation press =-@x}@= #To exit file preparation press ?-@@? %Please enter choice/press RETURN ۠ 16-@2y}6-@7'6-@1 B 4CA4XA A5LV? >:A%,"-@z}@? This will take some time` Bot A##@@E:A {}`a (}-@@2 Your file is full.D-@@a Hit to continue.#6- B|}# A# 6- B }8AR#-@8BEGIN DISPLAY LOOP 8,!@A!0}}*/-8,8,/ 78,<8%@,&@,48,"A!0>((IF TYPE(N)=2 THEN PRINT "mm/dd/yy"H>8,@~}*8,> 7@<8%@,&8,,R AR\6-aH-@@"H &@#} records on file f-@p''8, @)8,!@A!u4-@@#4 Hit } to return to menuz A4A#$$678,<8%@,&@,. 6-@ B }BPN-@@"+ Is this correct? 76-@"C6-@N6-@:Y, B4A#!6-@}4N! B3(A#KEYWORD$=INFILE$(1,8)! BP B! B=-@@"= # } TO print to continue,F:B2y,"@" @@, A"u F:B2y,@A"v6-%@} A E@ A@B% 6-8," @)!@%$D= 6-8,'6-8,%8%@,&8,=6-8}%@,&8,F'6-6-"@' BH 4$I BJ3!@3&@B B!}B!LAN!@* A%R A%@@$TAV''B%B&B$B#}X$YM OR L OPTION\ 6- -@B:,^?6-@:7,,9"@v)"@w)"A)"A ?6-`}  ($bD7<,4m)7<,4MA6-A:78,<8%@,&@,,%D$d,)6-A:78,<8%@,&@,,&,$}*LOOKUP RECORD+9#@@E:/6-9 B + B(A+=-@@#= }"Hit to print, to exit +-6-@ B-"@B@*+"@B@4+ @@PRINT} SCREEN>+ B B0.@ A.RECORD SCAN SUBR..##@@E:.6-}@ B. @B%. 6.6.6-. }-@@.-- $SCAN ALL OR SELECTED }RECORDS (S/A)? .16-@6-@8'6-@21 B .4B%/4AB#p/4SB `/} B / }-@@!/>' WHICH FIELD TO SELECT ON (1-13,> OR '?' TO LIST)? &/16-@6-@}'6-@1 B0/4>:@',B%:/+ 4?6-! B0+ B `D/4 B!@6-A:,4 @})!@B!@N/6--@X/56-%@58, @)8,!@B! b/  B!Pl/2-}@@#(  Ġ2 B v/"6-8%@,&8,"6-8,/!@6-@/4-@@}4 78,<8%@,&@,/ @B"p/,   ,  SMALLEST VALUE TO SELECT?/   7@<,}/  INCLUSIVE(Y/N)? /(  (  LARGEST VALUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /'6-}@6-@'6-@ / B#0/22PRT$=DOT$(1,IL):IF TY=2 THEN PRT$="mm/dd/yy"//   /  SMALLEST VAL}UE TO SELECT? 0$$  INCLUSIVE(Y/N)?  0,  ,  LARGEST VALUE TO SELECT? 0$$  INCLUSIVE}(Y/N)?  0!6-@ 6-@0!6-*0 B'GET SMALL/04B%40 6-6.6->0+6-%@}!@ +6-%@@0 B'GET LARGEC04B%H0 6-6.6-R0-@&@W0 >:A%},\06-@$6-&@f0 B Bp0"B%0u0"@B$qz0"@B$}0$$6.78,<8%@,&@,04B$@02)*4B%p04B%003)*4B%p0 } B%00$$6.78,<8%@,&@,04B$u0 6.6. B'6.0## )*"B%}p04B%00 6.6. B'6.0## )*"B%p0 B%00''6-A:78,<8%@},&@,,04B%0 )*"B%p04B%00!)*"B%p0 BPPRINT RECORD}0c-@@"= # to print, to continue,O-@@#c  to exit16-@ B}1-"@ @@# B- B%@1"@6-1 $1@ A1! 6-6-"@! B}1-6-4)4*6-%@-$1+!@+&@B B!1B'1"@6}-A:,1B%B&B%1-6-%@6-#6-@2- B1 6-4N1 6.1$2UPDATE REC}ORD ROUTINE2##@@E:2 BGET RECORD2(B1p2 B3EDIT RECORD2B}12 6. BP3j-@@"> $Hit to return to menu, or P-@@#j to continue edit}ing.3)6- B)4B1p"3 B,3 B0@63 6-6-%@@3..IF OUTFILE$(1,8)=INFILE$}(1,8) THEN 13160J3 B `T3''KEYWORD$=INFILE$(1,8):GOSUB 20850h3 B Br3@ A3HAND}Y DANDY RECORD EDITOR3 6.6-4 BCALCULATE PC'S4 }4a0@@70@@}Q0@@@aSET UP SCREEN!4 BPPRINT INFILE$&400PRINT "Enter 1-?? to change field, '?}' to"04++ " list, 'p'rint record or 's'ave. :416-@#6-@4'6-@1 B?4 BD4 4S)4}s6-@ $I4/4P)4p @@% B/ B3PN4 46-$X4+ 4?6-@! B0+} B3@b444GOSUB 22150:IF ERR OR IC<0 OR IC>?? THEN 13600l46--@v456-%@58, @)8},!@B404 46-@4 A4 46-$4$$678,<8%@,&@,.4 B3 } 5*5R-@@"< !ĠĠ - Hit H6-R B45 B3P6DELETE RECORD6}##@@E:6 BTO GET RECORD6(B@6a-@@#4 Sure you want to delet}e? @6-@#L6-@3W6-@:Y,a B64N)4B@66-&@ B `66-6@6 B}`ADJUST GLOBALS7 6. 7@ A:VERIFY GLOBAL TOTALS:-@:68,-: }: +@@@:!!-@@$@:"@BQP:6-&@6-&@:1-@}@1 @READING RECORD:E-@@E @+&@,'@ OF &@: #BU:} B B;-@; ";//68,-8,%A:78,<8%@,&@,,$; .; 8;/ +/ }FIELD OLD TOTAL NEW TOTALB; #BUL;-@V; "!@ BR0`;-@%@j; -@}%@t;@% A:78,<8%@,&@,,9-@"%@@ 8,~;" 6-8,"6-8%@,&8,;""8,&@}B$B#;$$678,<8%@,&@,.; ;E-@@"/ Hit to continue;6-@E }B;6-@ A>GLOBAL ADJUSTMENTS> ( $> #BU>-@> ">1 B`p16-A}:78,<8%@,&@,,>556-&A:78,<8%@,&@,,>556-%A:78,<8%@},&@,,>86-8%@,&8,88,&@B$B#>$$678,<8%@,&@,.> > B}6-@$B$END GLOBALSB BB[-@@", Printer not ready.>-@@#[ Hit t}o continue.B+-@@"!6-+ BB B$8JRECORD SEARCH UTILITYBJ6- BD}J6-GJ+-@@!+ Please enter key.oJ+-@@!+  qJ 6. BGET }KEYtJ(B`~J! 6-6-%@! BJ BJ$$IF R$<>INFILE$(1,8) THEN 19140J BPPRINT IN}FILE$J'-@@#'  Is this it? J06-@6-@#&6-@:N,0 BJ BJ 4Y$J" 6}. B"GET NEXT RECJ B`JC }-@@C #No Record Found. Hit for menuJ F:B2y,}@BpJ$ NFILE PREP ROUTINE*N# 6. 67,.#67@,.4N 6.6.9N@>NOPEN #2,8},0,"D:EXP.DAT"CN-@HN@RNBUILD INDEX\N6-P:'@',fN6-&$@'zN6-%@dN}6-%@dN6-%@2N!@6-%@dN6.zzzzzN67B:,%@,.>:,N67B:,%@,.>:},N67B:,%@,.>:,N67B:,%@,.N-@N''8,")8,!@BN$$6.78,<8}%@,&@,N @N N1 }RECORD NUMBER=1 LEN OF INDEX$=B:,O  TRACK/BYTE: /O }6-@O@ B`O. 6.067,.$67@,.. BeO% B$%FILE PREP FINISHEDO }B6.$O.F:A,"Ab. }DISK FULL ERROR.)O5F:A,Ab5  }DISK ERROR #F:A,.OR!  Hi}t to continue.-6-96-E6-O BR$LO!!SEARCH FOR RECORD IN INDEX$VO$ 6-B:,!@}$6-@`O/67%@,.!6-@/6-&@jO* @6-@'6-*$tOK6-$@&@}.37<%&@,:6-H6-%@K$~O"BO.6-P:+%,'@,.6-$@&@O/}7<%&@,6-O&37<%&@,&6-%@O BPO6-$@&@O6-+47<%&@,,}O6.7<%@,$OEND OF ROUTINEPINPUT FILEP&&CLOSE #2:OPEN #2,4,0,"D:EXP.DAT"#P# 6. 67,.#67}@,.(P@FROM INDEX2P-@:, >:,w"Bpw&6-%@&7<,0/Bpw.6-%@$*}@@1. Bpw) 6-6-&@)AR@w -% 7<,w"7<,4/"6-&@wD}67%@,.'AR:*@@0D BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CO}NSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x}"@*"@$x"@*"@$x"@*"@$x"@*"@$#x"@*"}@$(x"@*"@$-x B%Px B Zx0Y*0N*0Bdx$x.@.@}@K:xAR@x -x)!@1* @) >:%A(,x' @2)!@' >:A}`,x)@x"AUB x"@'6.$x!@1* @6-y'!@* A#}'6-&@2y B y -6.>:, $y]@)0@@C0@@]0}@@@"y$|y--@@"- 7@<@5,y$}"A" >:@(, }"A}B" >:@(,}'BB '@}" B'P"AR};@ ,}-@ }F:AS,}67,.>:F:AS%,, }X67B:,&@,..PRG" }4AR@F-@@T Saving  }X} }-@#}TT L In order to run your program, you must place the data disk, now your(}88 0 } program disk, in drive one, and enter:-}I2  RUN >:@4,D:7@,I6-F:@ ,%@`2}= } = 2 We wish you much luck with your program.<}ARd}O-B2HB2Q#' 9B }2w?(}E"O B#e} B$f} B# B!g}A +'0@@A0@}@@h}B-B (i}=-@@= # CODEWRITER is n}ow generating thej}d-@@d Jprogram you designed. It will take about five minutes. The program willk}=-@}@= #be stored automatically on the datal}.-@@. disk under the name:m}/"-@!u&B:,'@}@ / 7@,n}<-@@< " Your program will begin listingo}9-@@9 on the screen in a} few minutes.p}MERGE GENERATED CODEq}&,~ 'INSERT DATA DISK' MESSAGE-~A +@'0@@@A0@}@@.~(-@@( @PLACE/~/-@@/ @ PROGRAM DISK0~/-@@}/ @ IN DRIVE #1~0-@@0 @ PRESS 2~--@@- @ WHEN READY3}~6-@ B4~$~~ B$~6-~+@+@@~@6}-!@~@~ B$p }-@@7 Working please wait ...I-@@^(Memory} scanner :pAR@%%6-F:A6,%AV$F:A7,!!6-F:,%AV$F:%@,6-F:%@,-}@"@( 6-%"B `B'b B'R86-P:+%@,'AV,86-%@&+$AV,R}#%@A(7%@@CA@OAAR$ D:CONVERT.BASRNIITIINDEXBUNMDa`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i i} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + }. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 g}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.lꦆ 1Օ`0  }L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180 }1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666u!}uuhhhLr* +愵 ' + 'I 1 280/66&&&`"}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2i#}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h`$}1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 %}30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4H&}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 '}11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555&(}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL&)}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*N*}*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@(+}f(()))V)4440T5\5A1+1d5355&(6@6j6S1DDD #D'D'D#2D(MD-{D2D7D<DZDdDiDkDnDoDpDrEt,}EEE$EgEjEjEEEEEEEF4FMF]F FFF&FNFSFXF]FbGgCGlOGgGGG-}GGGH-H9HBHUHuHyH}H}HHHHHHHHHI8INInIqIIIIIJ%J X.}JyJJ J%J*J/J4J9J0K=KKKKKLL,LuL}LLLLLL L#MHMwMM$M)M.M/}3M8N=&NBLNDoNFNLNVNN O7O7O7O7OmOqOOOOOOO'POPiPPPPPQQ0} Q8Q8Q 8Q UQQQRsRRRRRRS S,SOS]SrSS SSSTMT _T%T*T>TCTR1}TW U\$UfAUw^UzvUzUUUU U U U$ V. V V V $V XV V V@ VJ WWWAWXWtWWWW2}WWWXX:XZXXXXXY@YVYmYqYYY YYY#Z=Z"WZ'Z,Z1Z6Z;[@[h[r[3}|[[-[1[9[G[`[v[[[[[[[[[0[5[:\D4\NQ\Xx\]\b\g\i!]jC]lW]n`]ot]p]q4}]v]]]]]^(^S^^^^^'_R_}____)`T````` `` a*Na4`a>va\5}afapazaaaabb"b,b$6b.ab8wbBbLbbbbbbbb%c%c1c7cJcdc}cc 6}ccc c# d(Fd-kd2d<dAdFdPeZ*ed8eiKejOenreeeeef8fRfVfjffffffg7}+g?ghgggggggiwYi|tiiiiiD jN8} jX#j]9jbHjlPjv^jjjj jjpjzjdjnjxjk)kBkJkgkkkkkkkklDlrl9}lll"m,&mX1m1m;m]memmmmn  n n*$n44n>`nHnRn\nfoz&oLoZoho}oooo:}ooopp/p:pEpEpEpPp$Wp.Wp8vp=pBpLpVp`pepjptq~Cqxqqq rOrprrr@r;}JrTr^rhrrs|Msaswssssst tt-tEtMt Qt Qt vt: ztD tN t4!t>!tH!tR!6u\!guf!up!uz<}!"v!Uv!}v!v!v!v!v!w!3w!Fw!pw!w!w!w!w"w(#%x2#%x<#3xF#KxZ#cxd#xn#xx# y#@y#uy#uy#y#y#y#z#=}Lz#{z#z#z# {#V{#{#{${${$|"$]|,$|6$|;$|@$}$I}%I}&%Z}'^}'^}$'r}.'v}8'}='}B'}G'~j',~o']~t't~y'~~'>}~'~'~'~'~''2'^'t''(( ((2(a(y*z +z*+>>>Ā>ր>> >>5>M>e>}>?}>>>?Ł ?ہ???? ?!*?-4?Q>?H?R?Â\?ւf?ڂp?ۂz?????!?N?e?{hB|jBmBwB>|B@}B B)BWBsBÅBB.BBB؆PFކRFUFZFV_FdF"fFCiFnF҈pFsF/xF;}FYFFF݉FF2F[FFNJFA}芴FF>FFNċNċN׋OLOVO`OjOtO~O OO%O0O9P>P>PO#P`(P{-P2P7PC@)AC@DC@GC@DC.SCRA5C"-AJC@(MC@PC@(SC@PC5CDAPC5CDBSC.ASC(SCDBSCSCDBJ}MC AMC(BMCMCDBVCYC\C&\C( \C( F_CF$JC_C_C-BF%K}YC\C(FP*LO*bCFP***4JCD7ACA#C#CHI#CeC&#ChC&#C&C&#CkC&#CnC&#L}CqC&tCwC#CF$zCH}CHCHCHI_CeC(zC_ChC(}C_C&C(C_CkC(C_CnC(tCM}_CqC(wCtCtC_ChC(_C&C( _CeC( wCwC_C&C(F%_CnC(tC_CqC(wCtCC@CtCN} B#CF$ACGAI_CkC(UH`m*C_CnC(_CnC( ACDCF%4JCJCD/ .PRGBC#C5D$ CO}kC( CkC( HCC5D%JCD7503 PRINT CHR$(125) 333"P}Enter Designer's NameCCC0u* "d* " 2CIQ};CD/I 505 POSITION 12,1:PRINT5CDProgram designed5CD510 POSITION 19,2:PRINT5CDby5CDC(R};CD/   515 POSITION C,3:PRINT5CD;CD5CD"Enter Program Name CC C0u* "S}d* " 2CJ;CD=J>C(;CD/   520 POSITION CT},5:PRINT5CD;CD5CDCC0CKKC POSITION 2,C:PRINT5CD$Verify global totals.........U}......V5CDCCCCC POSITION 2,C:PRINT5CD$Exit program.......................X5CDV}CDCUC,LCIF R$=5CDV5CD THEN 15000:REM VERIFY DATACC}- ";Will dW}ata be on the same disk as the program ?d*2CL,C2CL,C*}- "You have rooX}m for a maximum of C "records in your data file. "$Please enter total number of records "you waY}nt in the file ? CC C0u*;CD0;;CD:: M;CD,;CD,C MC;CD,1 REM MAX RECORDS=Z}C2 REM FILE LENGTH=)C3 REM FILE NAME=>C>CD/ F4 CLR :REM SET UP DIM ARRAYS6 ML=2:GOSUB [}31000:POKE 752,18 PRINT CHR$(125);5CD Running... 10 GOSUB 90,CN'220 GOSUB 21100:REM CHANGE\} DISK MESSAGE#230 GOSUB 21500:IF NOT ERR THEN 220CLOC#C@O$CkC(mOC@O% C& ]}F$C1,_CC(CF%O#31,28,31,30,31,30,31,31,30,31,30,31C O}-"Do you wish to enter date^}s in "merican format : mm/dd/yy or "uropean format : dd/mm/yy ?CC C 0u*Hq*;CDA9;CD_}E9PC;CD5+85 DATA 31,28,31,30,31,30,31,31,30,31,30,31990 DIM MT(12):RES. 85:FOR I=1 TO 12:READ X:MT(I)=`}X:NEXT I90 REM}-  "Please wait working ...100 REM DIM STATEMENTS95 NF=#C:MX=a}C:NG=C:RL=wC-105 DIM INDEX$(MX*8+3),KEYWORD$(40),LINE$(20)110 BUF=99:DIM LABEL$(tC),SP(#Cb}),TYPE(#C),LRG$(40),SML$(40)115 DIM INFILE$(wC ),OUTFILE$(wC),PO(#C),PC(#C),PR(c}#C),PRT$(40),R$(40)/118 DIM DOT$(40),BLANK$(40),TI$(BUF),GLOBAL(NG)C<>CAC#C@O$CkC(d}CkC( SCC@O%16000 REM GLOBAL ADJUSTMENTS16900 RETURN:REM END GLOBALSC]Se}33 3)}󠠠#C@O$CkC(CkC( SzACCCnC(Cf}nC( FA)}䠠"# Enter the field to accumulate in"ACD.g}" Please enter 1 to #C or 'l' to"list fields. F..CCC;CA0u*;CDL=;CDl=q}1B'DOS SYSTRACK2 BADB=AUTORUN SYSB?FILEWRT BZCONVERT BASBCODEGEN EXEBMENU EXEBMARKER EXE TC>*;CD/T*?C;CD,@?CC#C $UCkC(AUC * CkC(^UCr} * CC*CC*@O%>CD/U>CDC@? **>CD/CW/'U>CD>CACC >CD9s}U>C>CD/,B>CD= V>CCWA>C>CD/ DATA B>C>CD/CWB+ "C XV& t} CV$You must enter a numeric value. CV"Error - non numeric field entered.CV!Eu}rror - grand total field entered "Hit to continue.2C*+18000 REM PC CALCS AND GLOBALS18001v} TRAP 1825218252 REM CALC P.C.'S18800 GOSUB 16000:RETURNC#C@O$CkC(CkC( WCCw}@O%CWhB*#CC&#CF$_CC(F%R333.XC#C"X$CkC(x}CkC(ZX')}䠠"Enter the formula for program"calcuy}lated field C."CCnC(CnC( F"FC="[L] and [RETURN] to list fieldsz}C#CC0u*;CD=;CD= mYHq*;CD?=YhB*;CDL=;CDl= YC>*Ch*CY{}CJGCC FC=;C;CD/ FC IC=FC:IL=C&C(:GOSUB CkC(=Z22|}400CkC(WZ22300 :INFILE$(CqC(,CqC( )=PRT$"X%#CF$_CC( Z6PF}}_C F_C =VAL(INFILE$(_CqC(,_CqC( ))F%@?CCC0*;C;CD/-B*~}C9[+CG[C`[CCCC v[C0*+*C[+C[CC [C}0*+C[CC CC[C0*+C[+C0*+ "C4\ } +CQ\ Syntax ErrorCx\Mismatched ParenthesesC\Bad character or functionC}\Non numeric field in formulaC\Error - Global FieldC!]Error - Undefined P.C. Field "}Hit to continue.@ (C\2C*@ (C "  "} @?+CC_CC;C_C_CF =]?;C_C_CF-=^C+;C_C_CFF=}(^\;C_C_CF+=;C_C_CF-= S^C+;C_C_CF*=;C_C_CF/= ;C_C_CF^= ^C+;C_C_CF0}:;C_C_CF98;C_C_CF.= ^;C_C_CF)=^C+;C_C_CF(=^C+;C_C_CFINT(='_CC}C+;C_C_CFSQR(=R_CCC+;C_C_CFABS(=}_CCC+;C_C_CFEXP(=_}CCC+;C_C_CFLOG(=_CCC+;C_C_CFSIN(=_CCC+;C_C_CFCOS(=})`CCC+;C_C_CFATN(=T`CCC+;C_C_CFSGN(=`CCC+;C_C_CFCL}OG(=`CCC+C0_C_C;C_C_CF0:;C_C_CF98;C_C_CF.= `>?;C_C_CFE9}a4_C_C;C_C_CF+=;C_C_CF-= Na_C_C$*Ca`a>@?C_C C+C0_C_C}$*C#CaCkC(aCkC(aCkC(CCaCkC(aCC(C_C }C+C0C0C0C0;C_C_CF0;;C_C_CF9< abCc+C;C_C_CF505 _C_C;C}_C_CF0;;C_C_CF9< b+CC ;C_C_CF505 _C_C+PF*C 333R)}}󠠠#C"X$CCkC(Jc CkC(dcGCAlphaACkC(}cGCDateAC}kC(cGCNumericACkC(cGCDollar$ACkC(c C@(CCCCc)}}󠠠"[?] and [RETURN] for help."[RETURN] for next option."Field} #C" Field Type: GCD"Field Length: C&C(" Field Name: CCnC(CnC( F}" Reject If: CC C;CA0u*;CD=8e;CD?=KePF*Hq*;CD/re;C;CD/MCDB;CB}CCkC(CeC;CFLENGTH=;CFVALUE= e;CFNUMERIC=e;C F NOT NUMERIC=e;C}FCONTAINS=f;CFINTEGER=;C F NOT INTEGER= 8f ;CFNO ENTRY=Rf,JCjfCV;C}FLEN=f>CIF LENA_C;CFVAL=f>C TRAP ????:IF VALA>C CWC_Cp*CfVCfC}VC>CD(R$);CCETHEN CCCDC?gCV;CFNUM=hgC GOSUB 22800:};CFNOT=gC GOSUB 22150: IF NOT ERR THEN CCCDCgCV_C X*Cg}VCgCVC SML$=;CCE:GOSUB 22900:IF ERR THEN CCCDC_hCV}C IF INT(IC);CFNOT=h=;CFINT=h<>IC THEN CCCDC IF R$<>}PCD THEN CCCD_Cp*CiVCC0iCVC>iCYiC IF R$C}tiC IF IC;CD THEN CCCDC SML$=;CCE:LRG$=R$:GOSUB 22700:IF IC;}CCCF0 THEN CCCD "Error Message?CC C%0u*;CD=HjXC;CD}=^jPOS. 2,22:PRINT 5CD;CD5CD: ERR=1:RETURNCCC ERR=0:RETURN"X%@;C_C_C}F =j_C_CzCC;C_C_CF<=kC;C_C_CF==)kC;C_C_CF>=BkCCJk+;C_C}_CF<>=gkC;C_C_CF<==kC;C_C_CF>==kCCk;CD/_CkX;C;CD/ B};CD/_C 5D$;C C C;C C C FC5D%;C_C_C C;C_C_CF< =Dl;C_C_C>=C";C_C}_CF= =rl;C_C_C<>C";C_C_CF> =l;C_C_C<=C";C_C_CF<>=l;C_C_C}= C;C_C_CF<==l;C_C_C> C;C_C_CF>==m;C_C_C< CC_C_C_CC?;C_C_}CF =]m_C_CC_C;C_C_CF0:;C_C_CF98Cm;C_C_CF0:;C_C_CF98m;C}_C_CF.=;C_C_CF+= ;C_C_CF-= m;C_C_CF'=Cn.C@?+?C5D$CC};C_CC_CCF/9`n4CCCC_C5D%?CAnC;CCC F,C;C_CC F,CE}nC;C_CC F,C;CCC F,D_C_CC$*CC_CDCC C &oCCC}C LoCcZoC hoCCC(}oCAoCCCCCC;C_CCdWB;C_C}CdWB;C_CCdWB;C_C 5CDB;C_C_C/C;C_C_C/C;C_C_C5CDCC@?C+C} @?+C@?+@?C+C +B?;C_C_C5CDCC_C_C_C ;C_C_CF=p8C_C;C_C_CF'}9p8@?;CC5CDBC+@?C p+ "CqSyntax Error - Nonexistent testCCq"Test is only }valid on alpha fieldsCxq$Test is only valid on numeric fieldsCq$Test uses a comparison with a numb}erCqTest requires a string valueC rMismatched types on comparisonCOrBad Date - cor}rect format is CAOrmm/dd/yyCCEprdd/mm/yyC rBad value in comparison test "}Hit to continue.2C* C@}-33"#You must now choose your key field."}Enter a number (1-#C, or 'L' to list"fields FCCC 0u*;CDL=;CDl= sC>*T;CD}=s;CF0;;CF9< sC;CD,CC#C s CkC(CkC( t: **C ( , )}ACCqC(WCCCqC( WCCC4!"Field number out of rangeD "%You must use a keyb}oard entered field"Hit to continue.2C*T2260 KEYWORD$=INFILE$CD13120 IF OUTFILE$}CD=INFILE$CD THEN 1316013140 KEYWORD$=INFILE$CD :GOSUB 20850CChC(CeC( !uC&Ce}C(ChC( 19020 POSITION C ,5:PRINT 5CDCCnC(CnC( F5CD;19030 IR=5:IC=CC}nC(CnC( CkC(Uv:IL=C&C( :GOSUB 30000CkC(}v:DIN=1:GOSUB 30000 19035 IF }R$=PCD OR R$=CHR$(27) THEN RETURNCkC(v!19040 GOSUB 22500:CkC(v!#19040 GOSUB 22000:}IF ERR THEN 1903019050 GOSUB 22600:CkC(Fw!#19040 GOSUB 22100:IF ERR THEN 1903019050 GOSUB 2240}0:CkC(w!#19040 GOSUB 22100:IF ERR THEN 1903019050 GOSUB 22300: KEYWORD$=PRT$19090 IF KEY}WORD$<>INFILE$CD THEN 19140C3x#CAKx;Cmm/dd/yyACEcx;Cdd/mm/yyA2110 IF TYPE(N)=2 THEN }PRINT 5CD;CD5CD(12270 PRT$=DOT$(1,IL):IF TY=2 THEN PRT$=5CD;CD5CDCA y%22010 F2=VAL(R$(1,2)):F1=}VAL(R$(4,5))CE@y%22010 F1=VAL(R$(1,2)):F2=VAL(R$(4,5))30530 IF DIN THEN PRT$=5CD;CD5CD:IL=8>C}JCJCD/ FA>CD1C127 OPEN #1,4,0,5CD>CD.SCR5CD9400 TRAP 440:RESTORE 15500:TRAP 410:CLOSE #3:OPEN} #3,4,0,5CD>CD.GLB5CD450 CLOSE #3:OPEN #3,4,0,5CD>CD.IDX5CD20030 OPEN #2,8,0,5CD>CD.DA}T5CD20510 CLOSE#2:OPEN #2,4,0,5CD>CD.DAT5CD20610 CLOSE#2:OPEN #2,12,0,5CD>CD.DAT5CD2}1530 CLOSE#1:OPEN#1,4,0,5CD>CD.PRG5CD26010 CLOSE#3:OPEN#3,8,0,5CD>CD.IDX5CD26505 CLOSE#3:OPEN}#3,8,0,5CD>CD.GLB5CDC#CF$_CkC(_CkC({CCF%13350 POS. 2,22:PRINT 5CDE}nter 1-C to change field, '?' to5CD+13410IC=0:GOSUB 22150:IF ERR OR IC<1 OR IC>C THEN 13600#C}F$_CkC(_CkC(|CCF% 12065 PRINT 5CDWHICH FIELD TO SELECT ON (1-C,5CD:PRINT }5CDOR '?' TO LIST)? 5CD;'12100 TRAP 12140:X=VAL(R$):IF X<1 OR X>C THEN 12140 GOTO 320004VC}\C( r}P*N*bC}P*$'O5C@ ppp " | Loading Program Please Wait. |5C"-A " } " "POKE 764,12:LOAD5CD D:CONVERT.BAS}"RUN'* OCJ  DISK ERROR CPROGRAM STOPPED AT LINE 10120CJ}D@( D@ D@DhJhhhȑh`A D'hhhhhhh֑`AAD 5$ DDD}-C5%Dj DDDDD DD.DDJDDD.D/.}JF$D_CD DD.D_CD_CJF% F$_CF%oF$D DD. DD.D}_C< JF%@`+}  "Please wait working ...+}CCC/}CCACKeyboard entered fieldsACC>*C +C>ACProgram calculated fieldsACC>*C}M+ACGrand total fieldsACC>*C}+C>" to exit2C*+CŁp?*CŁ+}Cہp?*Cہ+C?p?*C+ ?C"ACDp?*C p?*C!+#CF$_CkC(C_CkC(}C Q\?C_CnC(_CnC( 'p?*CP+CC"F_CCC"C_CnC(_CnC(} FCU  F%+CCCC+?*C+C}CC+"! to continue,} to exit2C*/Ce?C/C{C+R}E Now you must enter the formula}s for your program calculated fields.S You may refer to a keyboard-entered field with 'F' followed by the field n}umber.\ You may also refer to a previously defined program-calculated field as 'F' followed by _the field n}umber. For example, calculated field #16 may be made to depend on calculated field #15by referring to 'F15'."}Press to continue. 2C*}I You may use the operators +,-,*,/ for the four ari}thmetic operations,:as well as any numeric function listedin the Basic Manual.$ You may use parentheses as neede}d.R All referenced fields must be numeric or dollar. A typical expression might be:  F9=(F1+F2)*F3/F4}"Press to continue. 2C*R+R}a The question 'reject if' will allow you to spec}ify various kinds of tests to be made on enteredc data before it is accepted into the data file. You may use up to se}ven tests on each field.X For each test, you have the option to enter an error message to be shown if the dat}a you enter is not accepted.cBelow are some examples of tests you may use. Refer to the manual and user notes fo}r full details. NUMERIC TEST$Ԡ Must be whole number"Press t}o continue. 2C*} ALPHABETIC TESTS"Ⱦ Length must be under 7%ȼ } Length must be at least 5$Ƚ Length must not equal 10#ž Value must be 6 or less$ż} Value must be at least 8"à Entry must be alpha$Ԡà Entry must be numeric:}Ӡâ Entry must not contain 'ABC' GENERAL TESTS"Ϡ Something must be e}ntered" Entry must not equal zeroG THE SIGNS <,>,<=,>=,= AND <> CAN BE USED INTERCHANGEABLY IN THE T}ESTS"Press to continue. 2C*R+>C D :MARKER.EXEA>CVCWCjO>CJCDA>C>CD/ .SCRBO?}bC4>CD7bCTbCbC4@?+ 3  3"PLACE"CODEWRITER DISK "}IN "DRIVE #VC "PRESS " WHEN READY2C 3  3"PLACE"} PROGRAM DISK" IN DRIVE #YC "PRESS " WHEN READY2CACD/t+ACD/}5D$AC CE5AC C CAC CE5 -C5D%+;CD=+;CD/F$;C_C_CFa:;C_C_CFz8;C_C_C;C_C}_CF5 -CF%+;CACC *luCC"SCCFCC"K:7vu?y*}C6C;CACC 4+C~CǎuC܎CC C Cz C" }CC vuCC;CCC-BC-vu;CCBCC .vuC Cr+}CC+D@Dh S`A  #RCDD.JϏO+} " This} is an illegal copy !y* " "illegal&܎CC C Cz C" To seven tests on each field.X For each test, you have the option to enter an error message to be shown if the} data you enter is not accepted.cBelow are some examples of tests you may use. Refer to the manual and user note}s for full details. NUMERIC TEST$Ԡ Must be whole number"Press } to continue. 2C*} ALPHABETIC TESTS"Ⱦ Length must be under 7%ȼ} Length must be at least 5$Ƚ Length must not equal 10#ž Value must be 6 or less$}ż Value must be at least 8"à Entry must be alpha$Ԡà Entry must be numeric:}Ӡâ Entry must not contain 'ABC' GENERAL TESTS"Ϡ Something must }be entered" Entry must not equal zeroG THE SIGNS <,>,<=,>=,= AND <> CAN BE USED INTERCHANGEABLY IN T}HE TESTS"Press to continue. 2C*R+>C D :MARKER.EXEA>CVCWCjO>CJCDA>C>CD/ .SCRB}O?bC4>CD7bCTbCbC4@?+ 3  3"PLACE"CODEWRITER DISK "}IN "DRIVE #VC "PRESS " WHEN READY2C 3  3"PLACE}" PROGRAM DISK" IN DRIVE #YC "PRESS " WHEN READY2CACD/x+ACD}/9D$AC CE5AC C CAC CE5 -C9D%+;CD=+;CD/F$;C_C_CFa:;C_C_CFz8 ;C_C_C;}C_C_CF5 -CF%+;CACC .luCC"SCCFCC"K:7vu?}y*C6C;CACC 4+C~CˎuCCC C Cz C"} CC vuCC;CCC-BC-vu;CCBCC .vuC C}v+CC+D@Dh S`A  #RCDD.JӏO+} " }This is an illegal copy !y* " "illegal&CC C Cz C"X&?|B=7@|J&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` '}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . }1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* )} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + }1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' ,} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '.}L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh``}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`ф}фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂Hȱ }h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,0 }` ,0L,L,`޵` `Ȕ`ʔ惥u` }+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr* }` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr* }TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥ} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵ}`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i i} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + }. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 g}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.lꦆ 1Օ`0  }L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180}1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666u}uuhhhLr* +愵 ' + 'I 1 280/66&&&`}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2i}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h`}1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 }30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4H}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 }11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555&}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL&}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*N}*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@( }f(()))V)4440T5\5A1+1d5355&(6@6j6S1BB BBBZB_BdBnBsBxBC:CbCCCCD>DTD!}jDDDD,D1D6D@DJETE^3Eh7EmMErYE^E^EvE{EE E EEF&F+&F0FF5LF:XF?cFXgF]gFb"}FgFlFqFvF{GG9G=G=GAGhGlGGGGGGGH HH5HEH\HlHwH{HHHH#}HHHHH2IRIrIIIII$J8JaJJJJJJK"K;KOKSKWKiKKKKKK$}LMLLLLLLM'M3MYMZMkM|MMMMMMMMMMNNN NN&N0N7N%}BN \N`NLnNVxN`NjNtN~NNNNNOO3O8OLO`OlO|OOOOO PPP #P'P3P(&}?P2LP<mPFPPPZPdPnPxPQ(Q6QKQ[Q_QsQwQQQQQQQQR@ RE-RJ;RT]R^aRhlRr}'}RwR|RRRRRRR,S:SLSXS\SjSxSSSSS4S>SCSHSMSR TpTu-Tz=TMT]T^T(}^TsTTTTTTUU"U JU \U hU$ ~U& U. U8 U= UB UD UG UL VQ .VV =V[ TV` lVe }Vj Vl Vo Vq Vt)} Vy W~ W 8W RW W W W W W W W X X BX NX hX X X X( X2 X< YF 0YP JYZ NY UY jY Y Y Y *}Y Y Y Y Z &Z *Z LZ PZ" ^ZT bZY bZ^ }Zb Zc Zh Zr Zw Zx [| [ [ [ *[ +[ +[ U[ [ [ [ \ 4\ c+}\ \ \ \ ] ] +] 3] 3] D] ] ] ] ] ] ] ] ] ^ &^ 8^ R^ X^ a^& m^' v^( ^) ^0 ^: ^D ^ ^,} ^ ^ _ _ _ _ !_ !_ +_ 8_ B_ T_U_U_f_w_____ ``#`#`'`9`H`Q`]```-}``"`h`r`|````aaaaa'aQayaaaaaaaaaabb(bBbXb.}^bpbbbbbbbbbbccc)c:cRc`cxccccccccdd5dLdfPdgP/}dhTdkZdlldmwdndodpdzdddee4e+mH+5mR+Gm\+`mf+pmp+mz+m+m+m+m+3}n+ n+Vn+hn+n+n+n+n,n,n,n,n,n,o,o.o.o.2o.Eo/\o/qo&/o0o0o0o2o2o2,p2Lp2p2p27q4}2Uq2{q2q20r2>r2gr2r2,s2rs3s 3Ft3t3t3t3u3Vu"3u'3u,3 v132v63v;3v@3ZwB3wE3w6w6w6x6x6x6y5}6qy6y6y6z:z:zhBzrBz|BzB%zB8zBUzBmzBzBzBzBzBz0uz:uzDuzNu{Xu {bu{lu0{vu>{uN{u_{u{u{u{u6}{u{u{u|y|y/|?|7}'**A8} R 3 33""Your choices are as follows:"Ed9}it Screen ...............E"Change Screen .............C "Load Screen ...............L "Save Sc:}reen ...............S"Exit to Main Menu..........X" Enter your choice/press A#A,*;}AEAe TDACAc jDALAl D *dASAs DAXAx D4<}K:7Ay*A6ADAA AAAZEhAaAzEhAA3Er6A=}A"A-AA64+ 333R"____________________" CODEWRITER">}SCREEN EDITOR"____________________+" PRESS START "TO"CONTINUE "____?}________________y*AAcF+5 333"____________________"NO SCREE@}N IN MEMORY "____________________" PRESS START "TO "CONTINUE "___________A}_________0AAB*"BD*B B GAAA2GBA B( B}BBGB.5GB*BGBB.5GAB( B*B/5HB#5BC}$5 5HB.5EHAB( BAB( AB( B AB(*BHBH*AD}B( B AB(AB(*BBNUMERICAB$5HBBDOLLAR$AAB( BAB( AB(E} 2IBAB( BBA B("BAaI%B BB UI$"B%B(B%BBE5-BUI%+BB BF} .B""BD"FIELD#A, LEN=AB(, TYPE: BD"%[K] KEYED, [P] PROG CAL, [G] GR. TOT.%BG}%B8J%B"y*B6BBaJBB Bk5BK5 J%BBp5BP5 J%H}B Bg5BG5 J%BB%B J%BJAB(B%B KAB(B%B"KAI}B(B+BB B .B"(BB BF**%B BAB( *BK%B%B%BK(BJ} B%B BF../../..9KBAB( BAB(AB(*"BDBL"Error - no K}input fieldBML"Error - no label for fieldBL"Error - incorrect date formatBLL}"Error - numeric field too longBL"#Error - over fifty fields in record*+* B B+B+BM}+B('M+B.B.B.B3MP+*(B BB-BBYM(B B B++B'kMB++B.B"B61BBN}1BM1BB +B.B"1B++B.B* B(B BB-B+"BD"A fields acceptedO}+2*K:7E:73ABN(B A(BpB(B(BDBL"(BDRS'4B7BP}`?y*A6ANAA A A N`A}NA7BT:B4B4BUQ}7BO7B7BO7B4B'3O4B&:B ""7B "4B 4B7B"`R}A4B7B"(ROW: COL: "7B "4B " HS}it for options4B7B"`=BA"BD"Press for Next"T}Press to begin"=BP =BP=BP AU}PAAQxAA(QA6QAKQ=B=B=B[Q=BF=BLLV}L..*B Q@AA4B+B7B.B4B&Q4B&"Hit to continue.y*B6BQW}"BD"44d@B!RBAR$B;RTBB(BB(]R@BR%@BlRX}rA44d"You have defined no K.E. fieldsA.BARX*d6* 33Y}3"(BD"( Cursor Pos. ROW:1 COL:1 for menuCBT * *4K:7y*A6p*AZ}jS4AxSHAS4ASHASAS | *CBCB CBSCBAAT *[} *| *CBCBCBA TCBAT * *A--TAA==TAA+MTAA*]TA\}+"BAFB4B7B"BCB B( ( ([B(BBEACB B(CBB(R$IB[BBB E5IBIBIBTIB]}IB FBFB"BFBIB-BIB-R%(BCB B(CBB(BDC"7B "4B 4B7B"^}"BDy*A6AA ~U +B4B.B7B%B Bp*AA UB AA Uj AA_}U.B.B %B%B( AV.B.B%B%B(.B.B .V *@B=VB 4B7B"BFB`}F4B+B7B.B B%B4B7B""BDAAV%B%B B%BAV%B%BB%BFB %Ba}7B(%BFB(7B V (BBE5 W  *@B W A8W%B@B B(FB ARW%B@Bb}B(%B7B(%BFB(7B Wy +B4B%B B V @BAR$BCBW %BBc}B(B B(%BFB W@BBR%+AXZ "B%F"%Do you want to reorder your fields? yd}*A6AY5Ay5 hX AN5An5 X4d XLBAX$OBLBB(BLBB(.Be}LB B(+BLBB(RBLBRBRB RB YRB B(.B Y *2 RBRBRBB(+BRB B(.BRBB(OBRf}BB(BX%4dRBB(RBB(RBB(RBB(RBB(RBB(RB B(RB B(A+FB Rg}$IB"BBE5IBIBIBYIBIB (B BB BB IB-C4BB 7B"IB-R%CB B( BCh}BB( BFB T *A^Z  BCB B(7B B ( 4B B7B(  " " "7Bi}"4BIB(B BE5IBIBIBZIBIB 4B7B"IB-+IB(B BE54B7B"IB-+BACj}BB(U[BLABELAUB CBB([BDATEAUBCBB( CBB([BNUMERICAUBCBB( CBk}B([BDOLLARAUBCBB( CBB(\BPROG CALAUBCBB( CBB(4\BPROG CALAUBCBBl}( CBB(c\B GRAND TOTAUBCBB( CBB(\B GRAND TOTAUBCBB( BACBB(\Bm}ALPHAAUBCBB( "XBD" #CB =BD =UB+ THIS IS AN ILLEGAL COn}PYy*  3 3"(堠@"Enter screen file nameo} +B.BOB0u*[BD=]+[BD=] hB*@B]  *sBB(]*^BaBDAf*dB^*[BA+sBp}B(4^BD7(B A(BpB(B(BDBAAHIAX$gBHIjBHImBHIpBHILB B(gBq}LBB(jBLBB(mBLBB(pBX%(B A(BpB(B(BDBAX$"BGAI(BLB B(LBB("BDCX%4r}A+aBD : AaBsBWCaB[BDBaBaBD/.SCRB+Af_X*d 33"(s}堠@"Enter screen file name +B.BOB0u*[BD=_d[BD= `hB*@Bt}` **?4aBD7@?sBB(AAX$gBLB B(jBLBB(mBLBB(pBLBB(u}gBjBmBpBX%`CBA`$"B(BCB B(CBB(FA"BD`%4Ad*v}SAA 'a 33"HAVE YOU" SAVED YOUR" SCREEN? Y/N4K:7w}y*A6AYAy aANAn ad'   33"PLACE" CODEWRITER "x}IN "DRIVE #yB "PRESS " WHEN READYy*pby*b+ y}  33"REMOVE" CODEWRITER"FROM "DRIVE #yB "PRESS "z} WHEN READY 3  3"PLACE" PROGRAM DISK "IN "DRIVE #sB "{}PRESS " WHEN READY   33" SCREEN FILE [BD/ "[BD" NOT FOUN|}D ON "DRIVE #sB "PRESS " TO CONTINUEl?dB4^BD7@?dBTdB}}dB4+(|B@'B@'XB@OB@vB@aB@(B@|B(Row: Col: AB Press f~}or OPTIONSAB.AB(BBBDBB ABOBBBDBXBBDAB&B(B(sBB(yBB( +)"B@(}B@([B@r(B@^B@2 B&2B&2B&2B&(B@)B@ B@: e k  e g }e yBsBf+*p* 3 3 3""You} have the following options:" S.........Create a screen layout" A..........Create an application "} F............Format a blank disk"CTo create a screen format [] you must have a formatted disk ready"}LTo create an application [] you must already have created a screen format"with selection ." Enter y}our choice/press A!B(*IB%hIBIB IB`IB{BhIBIB IBA\hBB:*IBS}yhBB4 IBFh(F(4K:7y*A6IBAAB"A-A6AhIBA}(4+ B33& TO RESTART FOR MENU! TO BEGIN FORMATTI}NG"____________________" DISK FORMAT"UTILITY"____________________yBsBiJ)}"REMOVE CODEWRITER"DISK FROM DRIVE yB "PLACE DISK TO BE "FORMATTED IN DRIVE sB}y*AABj)Aj'Aj(Ajr)r)^BD :A^BsBWC0? "}FORMATTING DISK^BD7B "FINISHED FORMATTINGh) *}[BD=9k'4K:7}3 3R"(BD"(________________________________________"Is this your screen file?y*}A6AYAy k*ANAn l:**aBD/lBaBD/l$BaBBE5l%yBB(}Sl*^B D :MARKER.EXEA^ByBWCyBB(f*dBl*yBB( B(B(.*^B D:CODEGEN}.EXEA%B^BD.J DISK ERROR %BS' 333"____________________"SYSTE}M" CONFIGURATION"MENU"____________________ " NUMBER OF " DRIVES = -} "____________________" DEFAULT IS"1 DRIVE; HIT NUMBER FOR DRIVES (1/2) OR } TO CONTINUEy*hn+yBsByB4K:7yByBBAA}n+Bn,*++BB n+ B sBy*B6 "B -+  3 3 3"}LOADING " APPLICATION  " GENERATOR! Please Wait+ "ERROR #} ^)R}T This option allows you to create or edit field types. Use the arrows to move the }cursor around the screen._Use the backspace key to move the cursor backwards on the same line, the key to move to} Dthe next line, and the tab key to move quickly across the screen., Prompts must be in the the following f}orm :  address ..........F You may leave any number of spaces bet}ween the prompt and the dots.cFor computed fields, the number of dots specifies the maximum value that may be enter}ed in the field."Press to continue. :*}S When you are finished, press the key. }You then press to read the screen.Z You are asked whether each numeric and dollar field is entered from the k}eyboard , ? calculated by the program , or summed as a grand total .a A label is a word or phrase not } connected with data. You may specify a label by typing it cin reverse video.This can be achieved by pressing the A}tari Logo key before typing in the label._ Remember to press the Atari Logo key again before entering a prompt} to deactivate the  reverse mode. ӠӠ"Press to continue. :*}A } If you wish you may make a field one of three special types.= To indicate a number field, insert a '#' for th}e last dot. For example: QUANTITY ....#= To indicate a dollar field, insert a '$' for the last dot.} For example: PRICE .....$S The '#' and '$' are included in the length count for keyboard entered fiel}ds.b Program calculated fields and grand total fields must be defined using numeric or dollar data types.}K To indicate a date field, enter '../../..' instead of the usual dots. For example: DATE ../../.."}Press to continue. :*R+R}X This option will allow you move the fields around the scree}n to customize your layout.d To move from field to field, use the arrow keys. When you have reached the field to be} moved, "press to select that field.S Now you may use the arrow keys to move the selected field aro}und the screen.\ Fields are not allowed to overlap, so when you are moving the field it automatically ski}ps over the other fields.9 At any point you may press to return to the menu."Press to cont}inue. :*R+y*z:+[BD=%z+@B[BD/X$B[BLBE5B0Uz@BB9BAmz@BBZ}Baz@BBzz@BB`B{zBB [BLBLBB-CX%[BD5A[BD5Z z@B+[BAF}BOB {lu+B.B"BOBF+B.B"K:7vu?y*B6B_{[BABB} {4@?+B~FB{uB Bz OBFB {vuFBFB[BFBB-BB-vu[BFBB}FBFB .vuB B/|+BB+& ' 4&0& 1&& *L\THE LIBERTY BELL IS NOTTHE ONLY THING IN PHILIDELPHIATHAT'S CRACKEDBB+& ' 4&0& 1&& *LF`$PLAYER DATA;@,7 #AV!-@@%"367<,.>:,7 $0,0,60,60,60,6}0,255,255y)6-F:@,&A(& )$"y@B7t$ D:FILEWRT b